Option Explicit
Sub N_Sample026()
    Dim myAr As Variant
    Dim i    As Long
    myAr = Array(Array("a", "b"), "a", Array("c"))              'w}C
    For i = 0 To UBound(myAr)
        If IsArray(myAr(i)) Then
            MsgBox "oO}CA̪쪺n" & myAr(i)(LBound(myAr(i))) & "C"
        Else
            MsgBox myAr(i) & "äO}CC"
        End If
    Next
End Sub
